*************************************************************************************************
* Documentation for Reproduction of
* Don't Know Much about Democracy: Reporting Survey Data with Nonsubstantive Responses. 2012
* PS: Political Science & Politics 45(3): 462-467.
* Jonathan Really and L.J Zigerell
* Code by L.J Zigerell
* Stata version 11
*************************************************************************************************
*************************************************************************************************
set more off
set mem 500m
* use "xwvsevs_1981_2000_v20060423.dta", clear [This is the command to load the dataset]
*************************************************************************************************
* this set of commands tabulates the item reported in Figure 1 and Figure 2
tab e117
tab e117, mi
tab e117, nol mi

* this set of commands generates a "left bound" variable for e117 in which 1 is a report that
* democracy would be "very good" or "fairly good" and 0 is another substantive response or
* a non-substantive response
gen e117_lb = e117
recode e117_lb (1 2=1) (3 4 .=0)

* this set of commands generates a "missing" variable for e117 in which 1 is a non-substantive
* response to e117
gen e117_mis = e117
recode e117_mis (.=1) (1/4=0)

* this set of commands generates an "inglehart" variable for e117 in which 1 is a report that
* democracy would be "very good" or "fairly good" and 0 is another substantive response
gen e117_ing = e117
recode e117_ing (1 2=1) (3 4=0)
*************************************************************************************************
*************************************************************************************************
* this set of commands generates percentages in Figure 1 and Figure 2 for the European Values Study
* this was a different dataset from above and from below
tabstat e117_lb e117_mis e117_ing if s003==40 & s020==1999, stats(mean, n) // Austria 1999
tabstat e117_lb e117_mis e117_ing if s003==112 & s020==2000, stats(mean, n) // Belarus 2000
tabstat e117_lb e117_mis e117_ing if s003==56 & s020==1999, stats(mean, n) // Belgium 1999
tabstat e117_lb e117_mis e117_ing if s003==100 & s020==1999, stats(mean, n) // Bulgaria 1999
tabstat e117_lb e117_mis e117_ing if s003==191 & s020==1999, stats(mean, n) // Croatia 1999
tabstat e117_lb e117_mis e117_ing if s003==203 & s020==1999, stats(mean, n) // Czech Republic 1999
tabstat e117_lb e117_mis e117_ing if s003==208 & s020==1999, stats(mean, n) // Denmark 1999
tabstat e117_lb e117_mis e117_ing if s003==233 & s020==1999, stats(mean, n) // Estonia 1999
tabstat e117_lb e117_mis e117_ing if s003==246 & s020==2000, stats(mean, n) // Finland 2000
tabstat e117_lb e117_mis e117_ing if s003==250 & s020==1999, stats(mean, n) // France 1999
tabstat e117_lb e117_mis e117_ing if s003==276 & s020==1999, stats(mean, n) // Germany 1999
tabstat e117_lb e117_mis e117_ing if s003==826 & s020==1999, stats(mean, n) // Great Britain 1999
tabstat e117_lb e117_mis e117_ing if s003==300 & s020==1999, stats(mean, n) // Greece 1999
tabstat e117_lb e117_mis e117_ing if s003==348 & s020==1999, stats(mean, n) // Hungary 1999
tabstat e117_lb e117_mis e117_ing if s003==352 & s020==1999, stats(mean, n) // Iceland 1999
tabstat e117_lb e117_mis e117_ing if s003==372 & s020==1999, stats(mean, n) // Ireland 1999
tabstat e117_lb e117_mis e117_ing if s003==380 & s020==1999, stats(mean, n) // Italy 1999
tabstat e117_lb e117_mis e117_ing if s003==428 & s020==1999, stats(mean, n) // Latvia 1999
tabstat e117_lb e117_mis e117_ing if s003==440 & s020==1999, stats(mean, n) // Lithuania 1999
tabstat e117_lb e117_mis e117_ing if s003==442 & s020==1999, stats(mean, n) // Luxembourg 1999
tabstat e117_lb e117_mis e117_ing if s003==470 & s020==1999, stats(mean, n) // Malta 1999
tabstat e117_lb e117_mis e117_ing if s003==528 & s020==1999, stats(mean, n) // Netherlands 1999
tabstat e117_lb e117_mis e117_ing if s003==909 & s020==1999, stats(mean, n) // Northern Ireland 1999
tabstat e117_lb e117_mis e117_ing if s003==616 & s020==1999, stats(mean, n) // Poland 1999
tabstat e117_lb e117_mis e117_ing if s003==642 & s020==1999, stats(mean, n) // Romania 1999
tabstat e117_lb e117_mis e117_ing if s003==643 & s020==1999, stats(mean, n) // Russian Federation 1999
tabstat e117_lb e117_mis e117_ing if s003==703 & s020==1999, stats(mean, n) // Slovakia 1999
tabstat e117_lb e117_mis e117_ing if s003==705 & s020==1999, stats(mean, n) // Slovenia 1999
tabstat e117_lb e117_mis e117_ing if s003==724 & s020==2000, stats(mean, n) // Spain 2000
tabstat e117_lb e117_mis e117_ing if s003==804 & s020==1999, stats(mean, n) // Ukraine 1999
*************************************************************************************************
*************************************************************************************************
* See the [1 WVS Reilly Zigerell 2012 Don't Know Much about Democracy] Stata do file 
* for the remaining commands
